inherited FPesquisaEmissaoPedido: TFPesquisaEmissaoPedido
  Left = 300
  Top = 253
  Caption = 'Pesquisa Emiss'#227'o do Pedido'
  ClientHeight = 341
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    inherited BtnLimpar: TBitBtn
      OnClick = BtnLimparClick
    end
    inherited BtnImprimir: TBitBtn
      OnClick = BtnImprimirClick
    end
    inherited BtnSelecionar: TBitBtn
      OnClick = BtnSelecionarClick
    end
  end
  inherited Panel1: TPanel
    Height = 300
    object Label2: TLabel [0]
      Left = 6
      Top = 86
      Width = 54
      Height = 13
      Caption = 'Fornecedor'
    end
    object Label9: TLabel [1]
      Left = 182
      Top = 3
      Width = 23
      Height = 13
      Caption = 'Data'
    end
    object Label6: TLabel [2]
      Left = 271
      Top = 22
      Width = 6
      Height = 13
      Caption = 'a'
    end
    object Label10: TLabel [3]
      Left = 5
      Top = 145
      Width = 46
      Height = 13
      Caption = 'Empresas'
    end
    object Label1: TLabel [4]
      Left = 5
      Top = 3
      Width = 33
      Height = 13
      Caption = 'Pedido'
    end
    object Label3: TLabel [5]
      Left = 82
      Top = 22
      Width = 6
      Height = 13
      Caption = 'a'
    end
    inherited DBGrid1: TDBGrid
      Top = 200
      Height = 79
      TabOrder = 7
      Columns = <
        item
          Expanded = False
          FieldName = 'PED_CODIGO'
          Title.Caption = 'Pedido'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PED_DATA'
          Title.Caption = 'Data Entrega'
          Width = 113
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PED_SITUACAO'
          Title.Caption = 'Situa'#231#227'o Pedido'
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FORN_RAZAO'
          Title.Caption = 'Fornecedor'
          Width = 163
          Visible = True
        end>
    end
    inherited Panel3: TPanel
      Top = 279
      TabOrder = 8
    end
    object DBLCBFornecedor: TDBLookupComboBox
      Left = 6
      Top = 100
      Width = 366
      Height = 21
      KeyField = 'FORN_CODIGO'
      ListField = 'FORN_RAZAO'
      ListSource = DSFornecedor
      TabOrder = 4
    end
    object DEDataIni: TDateEdit
      Left = 182
      Top = 18
      Width = 88
      Height = 21
      NumGlyphs = 2
      TabOrder = 2
    end
    object DEDataFim: TDateEdit
      Left = 279
      Top = 18
      Width = 88
      Height = 21
      NumGlyphs = 2
      TabOrder = 3
    end
    object CkBTodasEmpresas: TCheckBox
      Left = 5
      Top = 127
      Width = 118
      Height = 17
      Caption = 'Todas as Empresas'
      TabOrder = 5
      OnClick = CkBTodasEmpresasClick
    end
    object CLBEmpresas: TCheckListBox
      Left = 1
      Top = 160
      Width = 411
      Height = 40
      Align = alBottom
      Columns = 1
      ItemHeight = 13
      TabOrder = 6
    end
    object EPedidoIni: TEdit
      Left = 5
      Top = 18
      Width = 73
      Height = 21
      TabOrder = 0
      OnExit = EPedidoIniExit
    end
    object EPedidoFim: TEdit
      Left = 95
      Top = 18
      Width = 73
      Height = 21
      TabOrder = 1
    end
  end
  object RGSituacaoPedido: TRadioGroup [2]
    Left = 5
    Top = 81
    Width = 164
    Height = 46
    Caption = 'Situa'#231#227'o Pedido'
    Columns = 2
    ItemIndex = 2
    Items.Strings = (
      'Em aberto'
      'Encerrado'
      'Todos')
    TabOrder = 2
  end
  object RGSituacaoItempedido: TRadioGroup [3]
    Left = 179
    Top = 81
    Width = 164
    Height = 46
    Caption = 'Situa'#231#227'o Item'
    Columns = 2
    ItemIndex = 2
    Items.Strings = (
      'Em aberto'
      'Encerrado'
      'Todos')
    TabOrder = 3
  end
  inherited QPesquisa: TQuery
    SQL.Strings = (
      
        'Select Distinct(PED_CODIGO),PED_DATA,PED_SITUACAO,FORN_RAZAO,Ite' +
        'ns_Ped_Situacao'
      'From Pedido'
      
        '     Inner join FORNECEDOR on PEDIDO.Ped_Fornecedor = Fornecedor' +
        '.Forn_codigo'
      
        '     Inner join ITENSPEDIDO on PEDIDO.PED_CODIGO = ITENSPEDIDO.I' +
        'TENS_PED_PEDIDO'
      '')
    Top = 281
  end
  inherited DSPesquisa: TDataSource
    Top = 281
  end
  object DSFornecedor: TDataSource
    DataSet = DMGestao.QFornecedor
    Left = 296
    Top = 136
  end
end
